home *** CD-ROM | disk | FTP | other *** search
/ Sprite 1984 - 1993 / Sprite 1984 - 1993.iso / src / cmds / dvips / texps.pro < prev    next >
Encoding:
Text File  |  1990-02-26  |  934 b   |  15 lines
  1. %!
  2. TeXDict begin /rf{655360 div mul Resolution mul 7227 div /PixPerEm exch def
  3. findfont dup length 1 add dict /newfont exch def{1 index /FID ne{newfont 3 1
  4. roll put}{pop pop}ifelse}forall 256 dict begin newfont /Encoding get 0 1 255{
  5. 2 copy get 3 index 2 index get 1000 mul PixPerEm div def pop}for pop pop
  6. newfont /Metrics currentdict put end /fontname exch def dmystr 2 fontname cvx
  7. (@@@@)cvs putinterval newname dup newfont definefont[PixPerEm 0 0 PixPerEm neg
  8. 0 0]makefont def fontname{/foo setfont}2 array copy cvx def fontname load 0
  9. dmystr 6 string copy cvn cvx put}bdf /ObliqueSlant{dup sin exch cos div neg}
  10. bdf /SlantFont{/foo exch def[1 0 foo 1 0 0]TransFont}bdf /ExtendFont{/foo exch
  11. def 3 2 roll[exch{foo div}forall]3 1 roll[foo 0 0 1 0 0]TransFont}bdf
  12. /TransFont{exch findfont exch makefont dup length dict /newfont exch def{1
  13. index /FID ne{newfont 3 1 roll put}{pop pop}ifelse}forall dup newfont
  14. definefont pop}bdf end
  15.